Unit UnDmGebruikers;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmGebruikers = interface(IAppServerSOAP)
    ['{C9F948EE-1C97-4016-836F-EEE37700B32C}']
  end;

  TDmGebruikers = class(TSoapDataModule, IDmGebruikers, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrGebruikers: TADOQuery;
    PrvGebruikers: TDataSetProvider;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmGebruikersCreateInstance(out obj: TObject);
begin
 obj := TDmGebruikers.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmGebruikers, TDmGebruikersCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmGebruikers));
end.
